ADA Programming Guide/ADA Programming Guide.iso/ada_gwu/adaed/gwudemos/diners.ada

Text File | 1996-01-30 | 176 b | 12 lines

--::::::::::
--diners.ada
--::::::::::
WITH Room;
PROCEDURE Diners IS

BEGIN
  Room.Head_Waiter.Open_The_Room;
  --LOOP
    --DELAY 20.0;
  --END LOOP;
END Diners;